/* srow.t  sro_mstr Service/Repair Order Write Trigger                        */
/*Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                         */
/*All rights reserved worldwide.  This is an unpublished work.                */
/* $Revision: 1.3 $                                                           */
/*V8:ConvertMode=NoConvert                                                    */
/******************************************************************************/
/* Revision: 1.1        BY: Jean Miller          DATE: 06/06/02  ECO: *P07T*  */
/* Revision: 1.2        BY: Jean Miller          DATE: 06/13/02  ECO: *P082*  */
/* $Revision: 1.3 $     BY: Jean Miller          DATE: 08/01/02  ECO: *P0CL*  */
/******************************************************************************/

TRIGGER PROCEDURE FOR WRITE OF sro_mstr OLD BUFFER old_sro_mstr.

{mfdeclre.i}

/* Track Capacity Units */
if new sro_mstr and
   old_sro_mstr.sro_nbr  <> sro_mstr.sro_nbr
then do:
   {lvucap.i &TABLE="sro_mstr" &QUALIFIER=""""}
end.
